Public Class Usuario

    Private strLogin As String
    Private strSenha As String
    Private strCargo As String
    Private strId As String
    Private strNome As String
    Private strNivelSeguranca As String

    Public Sub New(ByVal strLogin As String, ByVal strSenha As String, ByVal strCargo As String, ByVal strId As String)
        Me.strLogin = strLogin
        Me.strSenha = strSenha
        Me.strCargo = strCargo
        Me.strId = strId
    End Sub

    Public Sub New(ByVal strLogin As String, ByVal strSenha As String, ByVal strCargo As String, ByVal strId As String, ByVal strNome As String, ByVal strNivelSeguranca As String)
        Me.strLogin = strLogin
        Me.strSenha = strSenha
        Me.strCargo = strCargo
        Me.strId = strId
        Me.strNome = strNome
        Me.strNivelSeguranca = strNivelSeguranca
    End Sub

    Public Sub setNome(ByVal Nome As String)
        strNome = Nome
    End Sub

    Public Function getNome() As String
        getNome = strNome
    End Function

    Public Sub setLogin(ByVal Login As String)
        strLogin = Login
    End Sub

    Public Function getLogin() As String
        getLogin = strLogin
    End Function

    Public Sub setSenha(ByVal Senha As String)
        strSenha = Senha
    End Sub

    Public Function getSenha() As String
        getSenha = strSenha
    End Function

    Public Sub setCargo(ByVal Cargo As String)
        strCargo = Cargo
    End Sub

    Public Function getCargo() As String
        getCargo = strCargo
    End Function

    Public Sub setId(ByVal Id As String)
        strId = Id
    End Sub

    Public Function getId() As String
        getId = strId
    End Function

    Public Sub setNivelSeguranca(ByVal NivelSeguranca As String)
        strNivelSeguranca = NivelSeguranca
    End Sub

    Public Function getNivelSeguranca() As String
        getNivelSeguranca = strNivelSeguranca
    End Function

    Public Property Login() As String
        Get
            Return Me.strLogin
        End Get
        Set(ByVal Value As String)
            Me.strLogin = Value
        End Set
    End Property

    Public Property Cargo() As String
        Get
            Return Me.strCargo
        End Get
        Set(ByVal Value As String)
            Me.strCargo = Value
        End Set
    End Property

    Public Property Id() As String
        Get
            Return Me.strId
        End Get
        Set(ByVal Value As String)
            Me.strId = Value
        End Set
    End Property

    Public Property Nome() As String
        Get
            Return Me.strNome
        End Get
        Set(ByVal Value As String)
            Me.strNome = Value
        End Set
    End Property

    Public Property NivelSeguranca() As String
        Get
            Return Me.strNivelSeguranca
        End Get
        Set(ByVal Value As String)
            Me.strNivelSeguranca = Value
        End Set
    End Property
End Class
